home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / sgwnd10 / ccomboex.cls < prev    next >
Encoding:
Visual Basic class definition  |  1998-07-01  |  7.8 KB  |  428 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CComboEx"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
  11. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  12. Option Explicit
  13.  
  14. Public Event Change()
  15. Public Event Click()
  16. Public Event DblClick()
  17. Public Event DragDrop(Source As Object, X As Integer, Y As Integer)
  18. Public Event DragOver(Source As Object, X As Integer, Y As Integer, State As Integer)
  19. Public Event DropDown()
  20. Public Event GotFocus()
  21. Public Event KeyDown(KeyCode As Integer, Shift As Integer)
  22. Public Event KeyPress(KeyAscii As Integer)
  23. Public Event KeyUp(KeyCode As Integer, Shift As Integer)
  24. Public Event LostFocus()
  25. Public Event OLEDragOver(Data As DataObject, Effect As Integer, Button As Integer, Shift As Integer, X As Integer, Y As Integer, State As Integer)
  26. Public Event OLEDragDrop(Data As DataObject, Effect As Integer, Button As Integer, Shift As Integer, X As Integer, Y As Integer)
  27. Public Event OLEGiveFeedback(Effect As Integer, DefaultCursors As Integer)
  28. Public Event OLEStartDrag(Data As DataObject, AllowedEffects As Integer)
  29. Public Event OLESetData(Data As DataObject, DataFormat As Integer)
  30. Public Event OLECompleteDrag(Effect As Integer)
  31. Public Event Scroll()
  32.  
  33.  
  34.  
  35. Public Property Get Name() As Integer
  36.  
  37. End Property
  38.  
  39. Public Property Get Style() As Integer
  40.  
  41. End Property
  42.  
  43. Public Property Get Index() As Integer
  44.  
  45. End Property
  46.  
  47. Public Property Get BackColor() As Integer
  48.  
  49. End Property
  50.  
  51. Public Property Let BackColor(ByVal vData As Integer)
  52.  
  53. End Property
  54.  
  55. Public Property Get ForeColor() As Integer
  56.  
  57. End Property
  58.  
  59. Public Property Let ForeColor(ByVal vData As Integer)
  60.  
  61. End Property
  62.  
  63. Public Property Get Left() As Integer
  64.  
  65. End Property
  66.  
  67. Public Property Let Left(ByVal vData As Integer)
  68.  
  69. End Property
  70.  
  71. Public Property Get Top() As Integer
  72.  
  73. End Property
  74.  
  75. Public Property Let Top(ByVal vData As Integer)
  76.  
  77. End Property
  78.  
  79. Public Property Get Width() As Integer
  80.  
  81. End Property
  82.  
  83. Public Property Let Width(ByVal vData As Integer)
  84.  
  85. End Property
  86.  
  87. Public Property Get Height() As Integer
  88.  
  89. End Property
  90.  
  91. Public Property Let Height(ByVal vData As Integer)
  92.  
  93. End Property
  94.  
  95. Public Property Get Enabled() As Integer
  96.  
  97. End Property
  98.  
  99. Public Property Let Enabled(ByVal vData As Integer)
  100.  
  101. End Property
  102.  
  103. Public Property Get Visible() As Integer
  104.  
  105. End Property
  106.  
  107. Public Property Let Visible(ByVal vData As Integer)
  108.  
  109. End Property
  110.  
  111. Public Property Get MousePointer() As Integer
  112.  
  113. End Property
  114.  
  115. Public Property Let MousePointer(ByVal vData As Integer)
  116.  
  117. End Property
  118.  
  119. Public Property Get Text() As Integer
  120.  
  121. End Property
  122.  
  123. Public Property Let Text(ByVal vData As Integer)
  124.  
  125. End Property
  126.  
  127. Public Property Get FontName() As Integer
  128.  
  129. End Property
  130.  
  131. Public Property Let FontName(ByVal vData As Integer)
  132.  
  133. End Property
  134.  
  135. Public Property Get FontBold() As Integer
  136.  
  137. End Property
  138.  
  139. Public Property Let FontBold(ByVal vData As Integer)
  140.  
  141. End Property
  142.  
  143. Public Property Get FontItalic() As Integer
  144.  
  145. End Property
  146.  
  147. Public Property Let FontItalic(ByVal vData As Integer)
  148.  
  149. End Property
  150.  
  151. Public Property Get FontStrikethru() As Integer
  152.  
  153. End Property
  154.  
  155. Public Property Let FontStrikethru(ByVal vData As Integer)
  156.  
  157. End Property
  158.  
  159. Public Property Get FontUnderline() As Integer
  160.  
  161. End Property
  162.  
  163. Public Property Let FontUnderline(ByVal vData As Integer)
  164.  
  165. End Property
  166.  
  167. Public Property Get FontSize() As Integer
  168.  
  169. End Property
  170.  
  171. Public Property Let FontSize(ByVal vData As Integer)
  172.  
  173. End Property
  174.  
  175. Public Property Get TabIndex() As Integer
  176.  
  177. End Property
  178.  
  179. Public Property Let TabIndex(ByVal vData As Integer)
  180.  
  181. End Property
  182.  
  183. Public Property Get ListCount() As Integer
  184.  
  185. End Property
  186.  
  187. Public Property Get ListIndex() As Integer
  188.  
  189. End Property
  190.  
  191. Public Property Let ListIndex(ByVal vData As Integer)
  192.  
  193. End Property
  194.  
  195. Public Property Get List(Index As Integer) As Integer
  196.  
  197. End Property
  198.  
  199. Public Property Let List(Index As Integer, ByVal vData As Integer)
  200.  
  201. End Property
  202.  
  203. Public Property Get Sorted() As Integer
  204.  
  205. End Property
  206.  
  207. Public Property Get SelStart() As Integer
  208.  
  209. End Property
  210.  
  211. Public Property Let SelStart(ByVal vData As Integer)
  212.  
  213. End Property
  214.  
  215. Public Property Get SelLength() As Integer
  216.  
  217. End Property
  218.  
  219. Public Property Let SelLength(ByVal vData As Integer)
  220.  
  221. End Property
  222.  
  223. Public Property Get SelText() As Integer
  224.  
  225. End Property
  226.  
  227. Public Property Let SelText(ByVal vData As Integer)
  228.  
  229. End Property
  230.  
  231. Public Property Get Parent() As Object
  232.  
  233. End Property
  234.  
  235. Public Property Get DragMode() As Integer
  236.  
  237. End Property
  238.  
  239. Public Property Let DragMode(ByVal vData As Integer)
  240.  
  241. End Property
  242.  
  243. Public Property Let DragIcon(ByVal vData As Picture)
  244.  
  245. End Property
  246.  
  247. Public Property Get DragIcon() As Picture
  248.  
  249. End Property
  250.  
  251. Public Property Get TabStop() As Integer
  252.  
  253. End Property
  254.  
  255. Public Property Let TabStop(ByVal vData As Integer)
  256.  
  257. End Property
  258.  
  259. Public Property Get Tag() As Integer
  260.  
  261. End Property
  262.  
  263. Public Property Let Tag(ByVal vData As Integer)
  264.  
  265. End Property
  266.  
  267. Public Property Get hWnd() As Integer
  268.  
  269. End Property
  270.  
  271. Public Property Get ItemData(Index As Integer) As Integer
  272.  
  273. End Property
  274.  
  275. Public Property Let ItemData(Index As Integer, ByVal vData As Integer)
  276.  
  277. End Property
  278.  
  279. Public Property Get NewIndex() As Integer
  280.  
  281. End Property
  282.  
  283. Public Property Get HelpContextID() As Integer
  284.  
  285. End Property
  286.  
  287. Public Property Let HelpContextID(ByVal vData As Integer)
  288.  
  289. End Property
  290.  
  291. Public Property Get MouseIcon() As Picture
  292.  
  293. End Property
  294.  
  295. Public Property Let MouseIcon(ByVal vData As Picture)
  296.  
  297. End Property
  298.  
  299. Public Property Get Font() As Font
  300.  
  301. End Property
  302.  
  303. Public Property Get DataField() As Integer
  304.  
  305. End Property
  306.  
  307. Public Property Let DataField(ByVal vData As Integer)
  308.  
  309. End Property
  310.  
  311. Public Property Get DataChanged() As Integer
  312.  
  313. End Property
  314.  
  315. Public Property Let DataChanged(ByVal vData As Integer)
  316.  
  317. End Property
  318.  
  319. Public Property Get WhatsThisHelpID() As Integer
  320.  
  321. End Property
  322.  
  323. Public Property Let WhatsThisHelpID(ByVal vData As Integer)
  324.  
  325. End Property
  326.  
  327. Public Property Get Appearance() As Integer
  328.  
  329. End Property
  330.  
  331. Public Property Get Container() As Integer
  332.  
  333. End Property
  334.  
  335. Public Property Get IntegralHeight() As Integer
  336.  
  337. End Property
  338.  
  339. Public Property Get RightToLeft() As Integer
  340.  
  341. End Property
  342.  
  343. Public Property Let RightToLeft(ByVal vData As Integer)
  344.  
  345. End Property
  346.  
  347. Public Property Get ToolTipText() As Integer
  348.  
  349. End Property
  350.  
  351. Public Property Let ToolTipText(ByVal vData As Integer)
  352.  
  353. End Property
  354.  
  355. Public Property Get OLEDragMode() As Integer
  356.  
  357. End Property
  358.  
  359. Public Property Let OLEDragMode(ByVal vData As Integer)
  360.  
  361. End Property
  362.  
  363. Public Property Get OLEDropMode() As Integer
  364.  
  365. End Property
  366.  
  367. Public Property Let OLEDropMode(ByVal vData As Integer)
  368.  
  369. End Property
  370.  
  371. Public Property Get Locked() As Integer
  372.  
  373. End Property
  374.  
  375. Public Property Let Locked(ByVal vData As Integer)
  376.  
  377. End Property
  378.  
  379. Public Property Get TopIndex() As Integer
  380.  
  381. End Property
  382.  
  383. Public Property Let TopIndex(ByVal vData As Integer)
  384.  
  385. End Property
  386.  
  387. Public Function Clear() As Integer
  388.  
  389. End Function
  390.  
  391. Public Function AddItem(Item As Integer, Optional Index As Integer) As Integer
  392.  
  393. End Function
  394.  
  395. Public Function RemoveItem(Index As Integer) As Integer
  396.  
  397. End Function
  398.  
  399. Public Function SetFocus() As Integer
  400.  
  401. End Function
  402.  
  403. Public Function Refresh() As Integer
  404.  
  405. End Function
  406.  
  407. Public Function ZOrder(Optional Position As Integer) As Integer
  408.  
  409. End Function
  410.  
  411. Public Function Drag(Optional Action As Integer) As Integer
  412.  
  413. End Function
  414.  
  415. Public Function Move(Left As Integer, Optional Top As Integer, Optional Width As Integer, Optional Height As Integer) As Integer
  416.  
  417. End Function
  418.  
  419. Public Function ShowWhatsThis() As Integer
  420.  
  421. End Function
  422.  
  423. Public Function OLEDrag() As Integer
  424.  
  425. End Function
  426.  
  427.  
  428.